home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / OHMS.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  640 b   |  27 lines
  1. 100  CLS
  2. 110  SCREEN 0
  3. 120  WIDTH 40
  4. 130  KEY OFF
  5. 140  '
  6. 150  PRINT "**************************************
  7. 160  PRINT "**           OHMS LAW               **
  8. 170  PRINT "**  VERS 1.1          DEC. 20,1982  **
  9. 180  PRINT "**************************************
  10. 190  '
  11. 200  LOCATE  7,1
  12. 210  PRINT "ENTER VALUES OR PRESS ENTER TO SKIP"
  13. 220  PRINT
  14. 230  PRINT
  15. 240  INPUT "VOLTAGE    = ",VOLTS
  16. 250  INPUT "CURRENT    = ",CURRENT
  17. 260  INPUT "RESISTANCE = ",RESISTANCE
  18. 270  IF VOLTS = 0 THEN LOCATE 10,14 : PRINT RESISTANCE * CURRENT
  19. 280  IF CURRENT = 0 THEN LOCATE 11,14 : PRINT VOLTS / RESISTANCE
  20. 290  IF RESISTANCE = 0 THEN LOCATE 12,14 : PRINT VOLTS / CURRENT
  21. 300  LOCATE 15,1
  22. 310  INPUT "PRESS ENTER TO CONTINUE - ",A$
  23. 320  CLEAR
  24. 330  POKE 106,0
  25. 340  CLS
  26. 350  GOTO 150
  27.